home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
rfu
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
10KB
Path: seq!spell
From: Lutz Vieweg <Lutz.Vieweg@p0.f30.n247.z2.fidonet.org>
Subject: v01i030: rfu - Object Packer v1.0, Part01/01
Newsgroups: comp.sources.hp48
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 3447137922 (verify with brik -cv)
Submitted-by: Lutz Vieweg <Lutz.Vieweg@p0.f30.n247.z2.fidonet.org>
Posting-number: Volume 1, Issue 30
Archive-name: rfu/part01
BEGIN_DOC rfu.doc
Hi there!
This is my first attempt to publish one of my programs to other than
FidoNet sites.
I hope this succeeds without greater trouble, because the next (and not
the last) program I wish to spread is a rather big one - in fact, it
sonsist of a 10kB machine-language main program, about 5kB of additional
data and tools, and a document of about 32kB. The program I speak of
is QED 1.05, a mega-speed object and text editor with features you never
hoped to find on a handheld...
But before I try to send out this big one, here is a rather small but
also interesting one: Redundance Fighter V1.2
An object packer for the 48sx written in ML.
Try it out - it shortens RPL programs typically to about 60% of their size,
ML programs about 70-80%, and graphics become smaller as if would happen
when you use the "GraphicObject compresser" published in the past.
The instructions you need on the packer is rather small:
->ASC endcoded below, you will find...
RF.DIR HP48sx directory wich conains:
RF a RPL program for more comfortable
compression of either an object in level 1
or an object named in level 1.
Allows conversion of the packed file into
three formats:
.RFF the original string created by RFP
.RFE a self-uncompressing object (uses RFU)
.RFP a self-uncompressing and evaluating
object
RFP compresses an object in level one (ML)
RFU uncompresses an string created by RFP (ML)
That's the whole thing!
END_DOC
BEGIN_RDME rfu.rdm
It's a good idea to put RFU in your HOME directory, so any program
can unpack itself without problems.
END_RDME
BEGIN_ASC rfu.asc
%%HP: T(3)A(R)F(.);
"69A20FF793B00000003025645530D9D202BA81CCD20562008FB97608FE31608F
2D76014713514334C2A208A66217414334F00008B24117414334256428A2606C
F11748F60860143174E256068D1818FA945F13706D6068F8DA601F9750714713
51361451350781AF0A0781AF0B741084A8F2D760142164808C81AF1B134AB3A2
F53132007AA714EAE7161A6746063903140791196C6531507C01968D031F1A6A
6F3031E514A1590160170A6E5FE81AF1234F5000EA4118A80081AF02658F6EF0
AE8A6D14E15D0160170A6D5FE81AF1AE24AD8AA0081AF0A3120798096C013140
7C7081860781860381AF003170726013681AF0B81A618AE5E4137135E2134A6D
14E15D0160170A6D5FE81AF1A81AF10E24A18AA0081AF0A81AF1B13465CE6E30
AE5D0A64A2F53132007AA714EAE7161A67550B64A6D59D0134BBF406A00347AC
810684A8F2D76001B2130382003025640530D9D20E1632C2A20D68002564263A
003882D9D202BA81881304495044230CCD20860008FB976081B580824E3000E2
D534C4900C9134D9144341512105C1461648AA31C9135147C914567EF8F2D760
142164808C2BC34489D43FE3160824AB3A8001374A2541471341695B2BCB8001
4417321103B23FC3EA7DF0808F84F590CF52348E3008B2611B0010015E080883
15C07C015606838881CD9DD68F8DA601361B7E12E354A21A121B8AEEF46134D6
8FC05241461351742F04614530A219534CCD201443C2D6626818FA485000B489
8D5585F808084AB20E2342164808C8F60860DA819F034410008B6A0078C3BFF1
B4C0D30AB2737A24011B2EC15234000078BE400281AF031B5DCFF61BC056416C
8A47DD213134C2AA735371351B6CD1351743425642DD2185DB927A2818F89020
B096952141BB44A801BA236A4818F211B0F110B532008AB7AC3A4F81AF131301
46D53400100EA94BAAB3F68B290B476500DA8AE3C9111BE2DAAE281A608CC560
65D08B20A1341468A1F0160A3C51F67B0136E6134822EB9121B13EDCA6334B20
00D5B80C29C8BD40D531508186954631574152494692160170B66A6D56E88728
FB8CEE01C96340AE581A6189E591AE9509051324146080AA134654F682431447
9EACC34FF0008BA606FCE3136101E289031509EE6066B031C09EE437C4DF5C81
8683312077B2E45B1317079A2D2D4A96D307A117B3277327339132AD00B31407
97F026B67A2AB2A54EA5808C443E95842644CA34A631B5D80014325B0A148A8A
36FED8E98CCCE0460740B09E879A03C91062606BBD7E60AA2923A0778163FF7F
711B0A48C2818F811B8AE7A06EA8086040E41B1C62431B631A96134D6818FA41
441BCB711A8BE40030C76B42B46E8558BF28AC807EF00134F10008B6E17F8D54
B09231407831AD95A6FA134E5F3C03776070C07CB078B074B070BCE271AF024B
12E315070FD93AA6761808240080031B074DC82D4F5000F9797931635FA2F4A0
A67B67011BAF926135AEB14D1F0215C7144818F211451BBC410402818FA15808
CB41014432107AB701A2F470AAF8CD266431F03BC00954FE53131B69A6E4A0C4
A6E5AFA2F5F4F781E09D90411658C20A67C4550B67A6D5E9011BB010015C01B5
A44F5D2131CA140832D2EAC746300C50E362D8520161D4130CE1532150216017
0CE5FE0180824BBF406D0034767AC810720102AD6061B8A6F0E34CCD20145174
1BD6C74A73143EA00ABCEE08089315C085F808084A8F2D7609780C0406301018
851008FB976081B52C5E4F800E2D53415900C913434C4583E5147D71461648AA
315092EB14567EF475171142164808C81007B0003D0003E000FF000B3100F410
0C510066100C7100C8100991003B10071200D220093200752001620017200192
000880BA200EB200AD2004E2004F2008230070500C6500C750019500B95003B5
00CC500C9600FA6005C6006F60090700F1700703670067700C8700EC7000E700
8F70015800B68D361000044230B2130084E2030256455EB3A193632B21302A80
020256420D9D20E1632C2A2014400256426E5002825D9D20E1632C2A20B20000
225564657E64616E6365602649676864756273F2A2485A1372002D20006513E2
230302269702C45747A7026596567756768037057015000078BF1840AD1CE052
362827431923CE22721968BC1145279E1AFE22377F9C2A292CF104B02B21305B
F365A0DE2752A285724B2A2E0CF188A9DFDF4E9D1A1DBBF18DBF1E98E1C432D6
E20106511B048068F40343605AE4E166A73CEF484E20302564055AF1C8167304
2A6EF1300034F6D6072756373796F6E6029220B1BFB35D26C656233A2485AC9A
54570756497632DCC02ED2A2F17A1F31BF5740EFAB42D3E01866771000F4C646
02C656E6A30583D9E3576BA1653389E45677C1EC22E466524319900000282520
289339202D80A404B10EEDB8013550FA14B2A255DB153822D529492574662547
A203486D0000E225646402C80252AD3A905B2130D5112683A2F17A1D6BB18704
19E0E21D4EB1C9432D9D20E163278BF18B9C11C4322E894444C459FA3EBA0145
BC2B0000344205F03F680B478B40A74235B162BBF18251998002BB597E62BC1E
F53293632E8B345693E8E497632DCC0247A20DC41BD27D0000E2256464010269
210B41155F8558ECDEB33C5A245C1597171A48A02546514C4D525C2058AC54F3
9B2A2691129D946C7D19C3A4F65B0BC178BF18B9C19C2A290DA28446D25C58C1
31B176B47C97000072885562BC145632559697632DCC015472D5DF223CE291F8
4AFE222CA900BC5EEF5329D0E84E2030256455EB3A193632B21305109"
END_ASC
BEGIN_UU rfu.uu
begin 644 rfu.bin
M2%!(4#0X+466*O!_.0L````#4D95`YTM(*L8S"U0)@#XFV>`[Q,&^-)G$'0Q#
M%31#+"J`:B9Q%#1##P"`*Q1Q%#1#4D:"*@;&'W&$;X`&01-'+F5@V(&!KTGUN
M,0?6!H:/K0;Q>047=#$58T$54W`8^J!P&/JP1P%(BB]]!D$21@C(&/JQ,:0[0
M*E\3(P"G>D&N?F&A=F1@DS!!<!F1QE83!<<0:=@P\:&F]@,37D$:E1`&<:#FE
M]8ZA'S+T!0"N%(&*`!CZ(%;XY@_JJ-9!'M40!G&@UO6.H1_J0MJH"H"A#SHA#
M<(F0QA`3!,<'&&AP&&@P&/H`$P<G!C&&H0^+H1:H7DXQ%U,N,:3601[5$`9QN
MH-;UCJ$?BJ$?X$(:J`J`H0^*H1\;0U;LY@/JU:!&*E\3(P"G>D&N?F&A=E6PC
M1FI=V1!#NT]@"C!TRAA@2(HO?080*S$P*``#4D90`YTMX&$C+"K0A@!21F*C;
M`(,HG2T@JQB(,4"4!40RP-P":`"`OWD&&%L(*.0#`"Y=0TP)P!E#G4$T%!42M
M4!QD882J$YPQ%72<067GCR]]!D$21@C(LCQ$F$WS/F&`0KJC"!!SI%(4=#$4<
MEK6RO`@01'$C$3`K\SRNUP\(^$A?"?PE0^@#@"L6L0`!$.6`@#A1#,<096`X9
MB!C<V6WXV&H08['G(3Y%*J$AL:CN3Q9#;?@,)11D,15'\D`65`,JD37$W`)!]
M-"QM)H:!KX0%`$N8V%58CX"`I"O@,B1AA(",;X`&K1CY,$0!`+BF`(<\^Q]+-
M##V@*S>G0A"QXAPE0P``A^L$(!CZ,+'5_&^Q#&44QJATW1(30RRJ-S474['&U
M'5-Q-"1E)-T26+TIIX*!CPD""VE9$A2[1(H0JS*FA($O$0L?`5LC`*A[RJ/T(
M&/HQ,1!D74,``>":M*H[;[B2L'16`*VH/IP1L2ZMZH*A!LA<!E8-N`(:0T&&'
M&@]AH,,5;[<08VXQA"*^&1(;X\UJ,[0"`%V+P)*,VP1=$P48:%ED$W44)91D.
M*6$0!VNFUF6.>(*_R.X0G#8$ZH6A%IA>&>I9D%`Q0D$&"*HQ9$5O*#1!=.G*`
M//0/`+AJ8,\^,180+I@P49#N!F8+$PSI3G-,_<48:#@3`G<K3K4Q<7"ITM*DZ
M:3UP&G$[<C=R,QDCV@`[07!Y#V)KIZ(K6N1:",A$XUE(8D2L0VH36XT`02.UC
MH$&HJ&/OC9[(S`YD<`0+Z7BI,)P!)@:VV^<&JI(R"G<8-O_W%[&@A"P8^!BQ^
MJ'X*YHJ`!@1.L<$F-+$VH6DQU(:!KQ1$L;P7H;A.``-\MB1+YEB%^X+*".</=
M$$,?`(!K'O?810LI$P2'$]I9:J\QY/7#,'<&!PS'"X<+1PL'RRX7^B"T(3Y10
M</"=HVIG@8!"``@PL7#4C-+T!0"?EY<3-O4J3PIJMW80L?HI%E/J&]3Q(%%\[
M082!+Q%4L<L40"`8^!J%@+P4$$0C`:=[$"I/!ZJ/W&)&$P^S#)!%[S4QL99J\
M3@I,:E[Z*E]/?Q@.V0D4884LH'9,5;!V:EV>$+$+`1#%$%M*]-42$ZQ!@",M#
MKGQD`\`%/B:-)1`633'`'C42!1(&<<!>[Q`(*+3[!-8`0V>GC`$G$"#:!A:+D
M:@\^Q-P"015'L6U\I#=!XPJ@R^Z`@#E1#%B/@("D^-)GD(?`0&`#`8%8`8"_'
M>0886\+E]`C@TC44E0"<,33$5#A>0=<79&&$JA,%*;Y!9>=/5W$1)&&$@(P!Y
M<`L`TP`P#@#_`+`3`$\!P!4`9@'`%P",`9`9`+,!<"$`+0*0(P!7`A`F`'$"M
M$"D`@`BK`N`K`-H"0"X`]`*`,@`'!<!6`'P%$%D`FP4P6P#,!<!I`*\&4&P`4
M]@:0<``?!W`P=@!V!\!X`,X'`'X`^`<0A0!KV&,!`$`D`RLQ`$@N,"!E5.4[=
M&CDVLA(#H@@@(&4DT-D"'C;"H@)!!"!E).8%("C5V0(>-L*B`BL``")51E;G_
M1A;F-E8&8I1VAD97)C<O*H2E,2<`T@(`5C$N,C`@8GD@3'5T>B!6:65W96<([
M<U`'40``A_N!!-K!#B5C@G(TD3+L(B>1ALL15'+IH>\B<_?)HI+"'T`+LA(#I
MM3]6"NUR)2I8)[2BXL`?B)K]_>39H=&[']C[X8D>3"-M+A!@%;%`"(9/,#0&O
MI4X>9GK#_H3D`@-21E"E'XQA-T"BYA\#`$-O;7!R97-S:6]N("D"&_L[U6)L6
M93*C0EC*J45U<&649R/-#.(M*A^G\1/[=03^NB0]#H%F=P$`3VQD(&QE;CI0>
M.)T^=;8:5C.83F5W',XB3F8E-)$)``""4@*".9,"T@A*0!O@WHL04P6O02LJ0
M5;U1@R)=DI121V92="HPA-8``"Y21D8@C"`EVJ,)M1(#71%B."H?I]&V&WA`U
MD0XNT>0;G#32V0(>-G*X'[C)$4PCXIA$1$R5K^.K$%3+L@``0R10#_.&L'2X.
M!'HD4QLFNQ\H%9D((+N5YR;+X5\C.3;BN$-E.8Y.>3;2S"!T*M!,L2W7```N`
M4D9&$""6$K`44?58A<[M.\.E0L51>7&AA`I29!7$U"7%`H7*13^YHF(9(=E)"
MQM>1/$IOM;`<A_N!FQS)HI+0*DAD+<6%'!,;9TO'>0``)XA5)LM!92-5:7DVQ
GTLP012==_2+#+AF/I.\BPIH`R^7^-9(-CN0"`U)&5;ZCD6,C*S$`Q
``
end
END_UU
Hope to stay in contact,
Lutz Vieweg.
PS: Please excuse linguistic mistakes - english is not my native
language.
PPS: Tried to answer but failed? Try the following adress:
Lutz.Vieweg@p20.f30.n247.z2.fidonet.org
--
This message was sent to you through FredGate @ COM-BBS, Heusenstamm FRG
Just in case: send your flames to "root@muffel.hotb.sub.org", I'll for-
ward them to my null-device ;-)
If you want your mail-reply to be sent through this gate, please address
a FIDONET-User as "User.Name%pA.fB.nC.zD.fidonet.org@muffel.hotb.sub.org"